//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

String event;

//===========================================================================
//                                                                       FORM
//===========================================================================
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
	event = "Form Activate";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::FormAlignInsertBefore(TWinControl *Sender, TControl *C1, TControl *C2)

{
	event = "Form Align Insert Before";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormAlignPosition(TWinControl *Sender, TControl *Control,
		  int &NewLeft, int &NewTop, int &NewWidth, int &NewHeight, TRect &AlignRect,
		  TAlignInfo &AlignInfo)
{
	event = "Form Align Position";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight,
		  bool &Resize)
{
	event = "Form Can Resize";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
	event = "Form Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
	event = "Form Close";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
	event = "Form Close Query";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormConstrainedResize(TObject *Sender, int &MinWidth, int &MinHeight,
          int &MaxWidth, int &MaxHeight)
{
	event = "Form Constrained Resize";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)

{
	event = "Form Context Popup";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	event = "Form Create";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDblClick(TObject *Sender)
{
	event = "Form Double Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDeactivate(TObject *Sender)
{
	event = "Form Deactivate";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
	event = "Form Form Destroy";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDockDrop(TObject *Sender, TDragDockObject *Source, int X,
          int Y)
{
	event = "Form Dock Drop";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDockOver(TObject *Sender, TDragDockObject *Source, int X,
		  int Y, TDragState State, bool &Accept)
{
	event = "Form Dock Over";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDragDrop(TObject *Sender, TObject *Source, int X, int Y)

{
	event = "Form Drag Drop";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDragOver(TObject *Sender, TObject *Source, int X, int Y,
          TDragState State, bool &Accept)
{
	event = "Form Drag Over";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormEndDock(TObject *Sender, TObject *Target, int X, int Y)

{
	event = "Form End Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormGesture(TObject *Sender, const TGestureEventInfo &EventInfo,
          bool &Handled)
{
	event = "Form Gesture";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormGetSiteInfo(TObject *Sender, TControl *DockClient, TRect &InfluenceRect,
          TPoint &MousePos, bool &CanDock)
{
	event = "Form Get Site Info";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::FormHelp(WORD Command, int Data, bool &CallHelp)
{
	event = "Form Help";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormHide(TObject *Sender)
{
	event = "Form Hide";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{
	event = "Form Key Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, wchar_t &Key)
{
	event = "Form Key Press";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
	event = "Form Key Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseActivate(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y, int HitTest, TMouseActivate &MouseActivate)
{
	event = "Form Mouse Activate";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "Form Mouse Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseEnter(TObject *Sender)
{
	event = "Form Mouse Enter";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseLeave(TObject *Sender)
{
	event = "Form Mouse Leave";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)

{
	if (event != "Form Mouse Move...") {
		event = "Form Mouse Move...";  Form1->Memo1->Lines->Append(event);
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "Form Mouse Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheel(TObject *Sender, TShiftState Shift, int WheelDelta,
          TPoint &MousePos, bool &Handled)
{
	event = "Form Mouse Wheel";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos,
          bool &Handled)
{
	event = "Form Wheel Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos,
          bool &Handled)
{
	event = "Form Wheel Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
	event = "Form Paint";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
	event = "Form Resize";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
	event = "Form Short Cut";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	event = "Form Show";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormStartDock(TObject *Sender, TDragDockObject *&DragObject)

{
	event = "Form Start Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormUnDock(TObject *Sender, TControl *Client, TWinControl *NewTarget,
          bool &Allow)
{
	event = "Form Un Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
//===========================================================================
//                                                                  PAINT BOX
//===========================================================================
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
	Form1->PaintBox1->Canvas->MoveTo(0,0);
	Form1->PaintBox1->Canvas->LineTo(0,99);
	Form1->PaintBox1->Canvas->LineTo(99,99);
	Form1->PaintBox1->Canvas->LineTo(99,0);
	Form1->PaintBox1->Canvas->LineTo(0,0);
	event = "PaintBox Paint";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1Click(TObject *Sender)
{
	event = "PaintBox Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1ContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)

{
	event = "PaintBox Context Popup";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1DblClick(TObject *Sender)
{
	event = "PaintBox Double Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1DragDrop(TObject *Sender, TObject *Source, int X,
          int Y)
{
	event = "PaintBox Drag Droop";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1DragOver(TObject *Sender, TObject *Source, int X,
          int Y, TDragState State, bool &Accept)
{
	event = "PaintBox Drag Over";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1EndDock(TObject *Sender, TObject *Target, int X,
          int Y)
{
	event = "PaintBox End Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1EndDrag(TObject *Sender, TObject *Target, int X,
          int Y)
{
	event = "PaintBox End Drag";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1Gesture(TObject *Sender, const TGestureEventInfo &EventInfo,
          bool &Handled)
{
	event = "PaintBox Gesture";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1MouseActivate(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y, int HitTest, TMouseActivate &MouseActivate)

{
	event = "PaintBox Mouse Activate";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "PaintBox Mouse Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1MouseEnter(TObject *Sender)
{
	event = "PaintBox Mouse Enter";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1MouseLeave(TObject *Sender)
{
	event = "PaintBox Mouse Leave";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
	if (event != "PaintBox Mouse Move...") {
		event = "PaintBox Mouse Move...";  Form1->Memo1->Lines->Append(event);
	}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "PaintBox Mouse Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1StartDock(TObject *Sender, TDragDockObject *&DragObject)

{
	event = "PaintBox Start Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PaintBox1StartDrag(TObject *Sender, TDragObject *&DragObject)

{
	event = "PaintBox Start Drag";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------
//===========================================================================
//                                                                     BUTTON
//===========================================================================

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	event = "Button Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1ContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)

{
	event = "Button Context Popup";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1DragDrop(TObject *Sender, TObject *Source, int X, int Y)

{
	event = "Button Drag Drop";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1DragOver(TObject *Sender, TObject *Source, int X, int Y,
          TDragState State, bool &Accept)
{
	event = "Button Drag Over";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1DropDownClick(TObject *Sender)
{
	event = "Button Drop Down Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1EndDock(TObject *Sender, TObject *Target, int X, int Y)

{
	event = "Button End Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1EndDrag(TObject *Sender, TObject *Target, int X, int Y)

{
	event = "Button End Drag";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Enter(TObject *Sender)
{
	event = "Button Enter";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Exit(TObject *Sender)
{
	event = "Button Exit";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{
	event = "Button Key Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1KeyPress(TObject *Sender, wchar_t &Key)
{
	event = "Button Key Press";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)

{
	event = "Button Key Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseActivate(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y, int HitTest, TMouseActivate &MouseActivate)

{
	event = "Button Mouse Activate";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "Button Mouse Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseEnter(TObject *Sender)
{
	event = "Button Mouse Enter";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseLeave(TObject *Sender)
{
	event = "Button Mouse Leave";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
	if (event != "Button Mouse Move...") {
		event = "Button Mouse Move...";  Form1->Memo1->Lines->Append(event);
	}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "Button Mouse Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1StartDock(TObject *Sender, TDragDockObject *&DragObject)

{
	event = "Button Start Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1StartDrag(TObject *Sender, TDragObject *&DragObject)

{
	event = "Button Start Drag";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

//===========================================================================
//                                                                       EDIT
//===========================================================================

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
	event = "Edit Change";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Click(TObject *Sender)
{
	event = "Edit Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1ContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)

{
	event = "Edit Context Popup";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1DblClick(TObject *Sender)
{
	event = "Edit Double Click";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1DragDrop(TObject *Sender, TObject *Source, int X, int Y)

{
	event = "Edit Drag Drop";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1DragOver(TObject *Sender, TObject *Source, int X, int Y,
          TDragState State, bool &Accept)
{
	event = "Edit Drag Over";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1EndDock(TObject *Sender, TObject *Target, int X, int Y)

{
	event = "Edit End Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1EndDrag(TObject *Sender, TObject *Target, int X, int Y)

{
	event = "Edit End Drag";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
	event = "Edit Enter";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
	event = "Edit Exit";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Gesture(TObject *Sender, const TGestureEventInfo &EventInfo,
          bool &Handled)
{
	event = "Edit Gesture";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{
	event = "Edit Key Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
	event = "Edit Key Press";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)

{
	event = "Edit Key Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1MouseActivate(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y, int HitTest, TMouseActivate &MouseActivate)
{
	event = "Edit Mouse Activate";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "Edit Mouse Down";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1MouseEnter(TObject *Sender)
{
	event = "Edit Mouse Enter";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1MouseLeave(TObject *Sender)
{
	event = "Edit Mouse Leave";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
	if (event != "Edit Mouse Move...") {
		event = "Edit Mouse Move...";  Form1->Memo1->Lines->Append(event);
	}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
	event = "Edit Mouse Up";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1StartDock(TObject *Sender, TDragDockObject *&DragObject)

{
	event = "Edit Start Dock";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1StartDrag(TObject *Sender, TDragObject *&DragObject)

{
	event = "Edit Start Drag";  Form1->Memo1->Lines->Append(event);
}
//---------------------------------------------------------------------------